home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / 5_05 / ReadWrite / !Then_me6 < prev    next >
Encoding:
Text File  |  1991-12-20  |  2.3 KB  |  158 lines

  1. %OP%VS4.11 (04-Dec-91), David A. Crossley MRCVS, R4000 5002 0045 9952 
  2. %OP%DEExample of Reading from "link" file
  3. %OP%FX
  4. %OP%FY
  5. %OP%FS
  6. %OP%WC232,1560,152,1084,0,6,0,0
  7. %OP%PZA13E22
  8. %OP%PZB1B2
  9. %OP%PZB4B6
  10. %OP%PZB10B10
  11. %OP%PZB12E12
  12. %OP%PZB23E24
  13. %OP%PZB25B25
  14. %CO:A,3,0%
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26. %V%%L%%D0%0
  27. %V%%L%%D0%A13+1
  28. %V%%L%%D0%A14+1
  29. %V%%L%%D0%A15+1
  30. %V%%L%%D0%A16+1
  31. %V%%L%%D0%A17+1
  32. %V%%L%%D0%A18+1
  33. %V%%L%%D0%A19+1
  34. %V%%L%%D0%A20+1
  35. %V%%L%%D0%A21+1
  36. %CO:B,9,72%   Title : @T@
  37. Filename : @L@
  38.  
  39. Load this file AFTER entering data into link file. 
  40. References only updated on full recalculation 
  41. ie. loading or inserting/deleting rows above entries.
  42.  
  43. Use [%H2%Ctrl%H2%] %H2%Y%H2% on this line to force recalculation of all slots below.
  44.  
  45. %H1%%H2%Comparison of total takings and expenditures recorded in "link" file 
  46.  
  47. Year
  48. %V%%L%%D0%[Read_Writ6]read(A13,1,1)
  49. %V%%L%%D0%[Read_Writ6]read(A14,1,1)
  50. %V%%L%%D0%[Read_Writ6]read(A15,1,1)
  51. %V%%L%%D0%[Read_Writ6]read(A16,1,1)
  52. %V%%L%%D0%[Read_Writ6]read(A17,1,1)
  53. %V%%L%%D0%[Read_Writ6]read(A18,1,1)
  54. %V%%L%%D0%[Read_Writ6]read(A19,1,1)
  55. %V%%L%%D0%[Read_Writ6]read(A20,1,1)
  56. %V%%L%%D0%[Read_Writ6]read(A21,1,1)
  57. %V%%L%%D0%[Read_Writ6]read(A21,1,1)
  58.  
  59. Total 
  60. for decade
  61. %CO:C,10,0%
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72. %R%Takings
  73. %V%%R%%D2%[Read_Writ6]read($A13,14,3)
  74. %V%%R%%D2%[Read_Writ6]read($A14,14,3)
  75. %V%%R%%D2%[Read_Writ6]read($A15,14,3)
  76. %V%%R%%D2%[Read_Writ6]read($A16,14,3)
  77. %V%%R%%D2%[Read_Writ6]read($A17,14,3)
  78. %V%%R%%D2%[Read_Writ6]read($A18,14,3)
  79. %V%%R%%D2%[Read_Writ6]read($A19,14,3)
  80. %V%%R%%D2%[Read_Writ6]read($A20,14,3)
  81. %V%%R%%D2%[Read_Writ6]read($A21,14,3)
  82. %V%%R%%D2%[Read_Writ6]read($A21,14,3)
  83. %R%========
  84. %V%%R%sum(C13C23)
  85. %CO:D,15,0%
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96. %R%Expenditure
  97. %V%%R%%D2%[Read_Writ6]read($A13,14,2)
  98. %V%%R%%D2%[Read_Writ6]read($A14,14,2)
  99. %V%%R%%D2%[Read_Writ6]read($A15,14,2)
  100. %V%%R%%D2%[Read_Writ6]read($A16,14,2)
  101. %V%%R%%D2%[Read_Writ6]read($A17,14,2)
  102. %V%%R%%D2%[Read_Writ6]read($A18,14,2)
  103. %V%%R%%D2%[Read_Writ6]read($A19,14,2)
  104. %V%%R%%D2%[Read_Writ6]read($A20,14,2)
  105. %V%%R%%D2%[Read_Writ6]read($A21,14,2)
  106. %V%%R%%D2%[Read_Writ6]read($A22,14,2)
  107. %R%========
  108. %V%%R%sum(D13D23)
  109. %CO:E,15,0%
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120. %R%Profits!
  121. %V%%R%C13-D13
  122. %V%%R%C14-D14
  123. %V%%R%C15-D15
  124. %V%%R%C16-D16
  125. %V%%R%C17-D17
  126. %V%%R%C18-D18
  127. %V%%R%C19-D19
  128. %V%%R%C20-D20
  129. %V%%R%C21-D21
  130. %V%%R%C22-D22
  131. %R%========
  132. %V%%R%sum(E13E23)
  133. %CO:F,12,24%
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158. %CO:G,12,12%